Option Strict Off
Option Explicit On
Friend Class SMSSite
	
	Private strSiteCode As String
	Private lngSiteType As Integer '1=Primary, 2=Secondary
	Private strSiteServer As String
	Private strParentSiteCode As String
	
	'UPGRADE_NOTE: Class_Initialize was upgraded to Class_Initialize_Renamed. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"'
	Private Sub Class_Initialize_Renamed()
		ResetData()
	End Sub
	Public Sub New()
		MyBase.New()
		Class_Initialize_Renamed()
	End Sub
	
	Private Sub ResetData()
		strSiteCode = ""
		lngSiteType = 1
		strSiteServer = ""
		strParentSiteCode = ""
	End Sub
	
	Public Property SiteCode() As String
		Get
			SiteCode = strSiteCode
		End Get
		Set(ByVal Value As String)
			strSiteCode = UCase(Left(Trim(Value), 3))
		End Set
	End Property
	Public Property SiteServer() As String
		Get
			SiteServer = strSiteServer
		End Get
		Set(ByVal Value As String)
			strSiteServer = UCase(Trim(Value))
		End Set
	End Property
	Public Property ParentSiteCode() As String
		Get
			ParentSiteCode = strParentSiteCode
		End Get
		Set(ByVal Value As String)
			strParentSiteCode = UCase(Left(Trim(Value), 3))
		End Set
	End Property
	Public Property SiteType() As Integer
		Get
			SiteType = lngSiteType
		End Get
		Set(ByVal Value As Integer)
			If Value = 1 Or Value = 2 Then
				lngSiteType = Value
			End If
		End Set
	End Property
	Public ReadOnly Property SiteTypeString() As String
		Get
			If lngSiteType = 1 Then
				SiteTypeString = "Primary"
			Else
				SiteTypeString = "Secondary"
			End If
		End Get
	End Property
End Class